/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / POWERBASE / USERFUNCS / Name

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 2d dd 20 a4 55 | 6e 61 6d 65 28 73 75 72 |...-. .U|name(sur|
|00000010| 6e 61 6d 65 24 2c 66 6f | 72 65 6e 61 6d 65 24 2c |name$,fo|rename$,|
|00000020| 6d 69 64 64 6c 65 6e 61 | 6d 65 73 24 29 0d 00 02 |middlena|mes$)...|
|00000030| 46 f4 20 23 23 23 20 52 | 65 74 75 72 6e 73 20 6e |F. ### R|eturns n|
|00000040| 61 6d 65 20 61 73 20 66 | 6f 72 65 6e 61 6d 65 24 |ame as f|orename$|
|00000050| 20 3c 73 70 61 63 65 3e | 20 73 75 72 6e 61 6d 65 | <space>| surname|
|00000060| 24 20 55 4e 4c 45 53 53 | 20 6f 6e 65 20 6f 66 20 |$ UNLESS| one of |
|00000070| 23 23 23 0d 00 03 45 f4 | 20 23 23 23 20 6d 69 64 |###...E.| ### mid|
|00000080| 64 6c 65 20 6e 61 6d 65 | 73 20 69 73 20 69 6d 6d |dle name|s is imm|
|00000090| 65 64 69 61 74 65 6c 79 | 20 66 6f 6c 6c 6f 77 65 |ediately| followe|
|000000a0| 64 20 62 79 20 61 6e 20 | 61 73 74 65 72 69 73 6b |d by an |asterisk|
|000000b0| 2c 20 69 6e 20 23 23 23 | 0d 00 04 49 f4 20 23 23 |, in ###|...I. ##|
|000000c0| 23 20 77 68 69 63 68 20 | 63 61 73 65 20 74 68 65 |# which |case the|
|000000d0| 20 69 6e 64 69 63 61 74 | 65 64 20 6e 61 6d 65 20 | indicat|ed name |
|000000e0| 69 73 20 75 73 65 64 20 | 69 6e 20 70 6c 61 63 65 |is used |in place|
|000000f0| 20 6f 66 20 66 6f 72 65 | 6e 61 6d 65 24 20 23 23 | of fore|name$ ##|
|00000100| 23 0d 00 05 0e ea 20 50 | 25 2c 51 25 2c 4e 24 0d |#..... P|%,Q%,N$.|
|00000110| 00 06 19 50 25 3d a7 6d | 69 64 64 6c 65 6e 61 6d |...P%=.m|iddlenam|
|00000120| 65 73 24 2c 22 2a 22 29 | 0d 00 07 0c e7 20 50 25 |es$,"*")|..... P%|
|00000130| 3d 30 20 8c 0d 00 08 1f | 20 20 4e 24 3d 66 6f 72 |=0 .....|  N$=for|
|00000140| 65 6e 61 6d 65 24 2b 22 | 20 22 2b 73 75 72 6e 61 |ename$+"| "+surna|
|00000150| 6d 65 24 0d 00 09 07 20 | 20 cc 0d 00 0a 0b 20 20 |me$.... | .....  |
|00000160| 51 25 3d 50 25 0d 00 0b | 0d 20 20 f5 20 51 25 2d |Q%=P%...|.  . Q%-|
|00000170| 3d 31 0d 00 0c 26 20 20 | fd 20 51 25 3d 30 20 84 |=1...&  |. Q%=0 .|
|00000180| 20 c1 6d 69 64 64 6c 65 | 6e 61 6d 65 73 24 2c 51 | .middle|names$,Q|
|00000190| 25 2c 31 29 3d 22 20 22 | 0d 00 0d 31 20 20 4e 24 |%,1)=" "|...1  N$|
|000001a0| 3d c1 6d 69 64 64 6c 65 | 6e 61 6d 65 73 24 2c 51 |=.middle|names$,Q|
|000001b0| 25 2b 31 2c 50 25 2d 51 | 25 2d 31 29 2b 22 20 22 |%+1,P%-Q|%-1)+" "|
|000001c0| 2b 73 75 72 6e 61 6d 65 | 24 0d 00 0e 05 cd 0d 00 |+surname|$.......|
|000001d0| 0f 07 3d 4e 24 0d ff    |                         |..=N$.. |        |
+--------+-------------------------+-------------------------+--------+--------+